jS>-A198  266  TUTORIAL  TRACK  II  ADVANCED  ADA  TOPICS<U>  INFORMATION  1/4 

SVSTEMS  AND  TECHNOLOOV  CENTER  H-P  AFB  OH  ADA  VALIDATION 
FAC  I L I  TV  P  LAWLIS  ET  AL  89  JUN  87 


UNCLASSIFIED 


F/G  12/3 


NL 


TUTORIAL 


TRACK  II 


ADVANCED  ADA  TOPICS 


Major  Patricia  Lawlis,  Air  Force  Institute  of  Technology 


Captain  Dean  Gonzalez,  U.S.  Air  Force  Academy 


Lieutenant  David  Cook,  U.S.  Air  Force  Academy 


U  i  +  & 


MC*  Aw  > 


UNCLASSIFIED 


m  FILE  COPY 


SECURITY  CLASSIFICATION 


REPOF 


1.  REPORT  NUMSfR 


4.  TITLE  (and Subtitle) 


AD- A 190  366 


Tutorial  Track  II.  Advanced  Ada  Topics 


7.  AUTHORS) 

MAJ  Patricia  Lavvlis,  CAP'!'  Doan  Gon/.alo/.  and  I.T  David  C<>»k 


9.  PERFORMING  ORGANIZATION  AND  ADDRESS 

Ada  Software  Education  and  Training  Team 
Ada  Joint  Program  Office,  3E114,  The 
Pentagon,  Washington,  D.C. 20301-3081 


II.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 

Ada  Joint  Program  Office 
3E  114,  The  Pentagon 
j  Washington,  DC  20301-3081 


14.  MONITORING  AGENCY  NAM;  S  ADORESSf/7  dtffen  nr  from  Controlling  Office) 

Ada  Joint  Program  Office 


READ  INSTRUCTION.; 

_ BEFORE  COMPLETE INI ,  EOn.M 

N  NO.  3.  RECIPIENT'S  CATALOG  NUMBER 


5.  TYPE  OF  REPORT  &  PERIOD  COVERED 

Tutorial,  9  June,  1987 

6.  PERFORMING  0RG.  REPORT  NUMBER 


8.  CONTRACT  OR  GRANT  NUMRF  R(sJ 


10.  PROGRAM  ELEMENT,  PROJECT,  TASK 
AREA  &  WORK  UNIT  NUMBERS 


12.  REPORT  DATE 

June  9, 1987 


ucjMitiujamu 


15.  security  class  tot  this  report) 

UNCLASSIFIED 


imm 


FICA ' ION  DOWNGRADING 


16.  DISTRIBUTION  STATEMENT  (of  this  Report) 

Approved  for  public  release;  distribution  unlimited. 


17.  DISTRIBUTION  STATEMENT  (of  the  abstract  entered  in  Block  20  If  different  from  Repoi 

UNCLASSIFIED 


DT1C 

ELECTE 


JAN  0  6  1988 


19  .  KEYWORDS  (Continue  on  reverse  side  if  necessary  and  identify  by  block  number) 

Ada  Programming  language;  Ada  .Training;  Education,  Training /^Computer 
Programs,  Ada  Joint  Program  Office,  AJPO 


20.  ABSTRACT  (Continue  on  reverse  side  if  necessary  and  identify  by  block  number) 

This  document  contains  prints  of  viewgraphs  presented  at  the  Advanced 
Ada  Topics  Tutorial,  Track  II  June  9,  1987.  Topics  covered  were.Data 
Abstraction,  Tasking,  Strong  typing,  and  Exceptions  /  , 


FUHM  1473 

EDITION  OF  1  NOV  65  IS  OBSOLETE 

1  JAM  73  S/N  0 102  -LF  -0  14-660  1  _ UNCLASSIFIED _ 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  (When  Data  e  ntered) 


WV 


Abstraction  of  Process 


£ 

js 


f! 

>*. 

•> 


a 

A 


i 


v, 

V, 

V, 


y 


•  * 

fc 


& 


<3T 


by 

Dean  W.  Gonzalez 
David  A.  Cook 


383-472-2136 
MI  259-2136 

U.S.  Air  Force  Academy 


*  Ada  is  a  registered  trademark  of  the  U.S.  Government, 
Ada  Joint  Program  Office. 


IL 

O 

h 

z 

z 

o 

LU 

LU 

M 

I 

z 

H 

h 

LU 

p 

H 

<L 

h 

z 

O 

OH 

LU 

<X 

<r 

LU 

O 

oh 

h 

CQ 

o 

( J 5 

LU 

CQ 

<r 

IL 

a. 

O 

i 

LU 

h 

> 

LU 

ffl 

V) 

h 

Z 

OH 

<x 

t X 

Q 

M 

<r 

LU 

Z 

IL 

(f) 

h- 

<x 

LU 

<x 

L L 

O 

CQ 

a 

Q 

h 

h 

O 

LU 

a 

Z 

Z 

O 

h 

LU 

LU 

LU 

J 

<r 

h* 

OH 

OH 

<x 

LU 

01 

<x 

<r 

OH 

<X 

d 

fl. 

> 

h 

h 

<r 

co 

% 


<r 

CL 

<r 

a 

CD 

a: 

h* 

<r 

CD 

> 

CD 

c n 

H 

M 

a: 

o 

<r 

X 

cr 

& 

c r 

Cl 

u 

u 

Lii 

oq 

cq 

o 

i 

H 

M 

D 

J 

h 

U) 

_J 

0} 

CQ 

o 

Scenario 


•SM 
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Task  McD  is 

entry  SERUE  (  ORDER 

COST 

end  McD; 

TASK  GONZO; 


— OR 


Task  McD  is 

entry  SERUE  (  ORDER 
end  McD; 


Task  GONZO  is 

entry  PAY  (  COST 

PAYMENT 

end  GONZO; 


out  F00D_1 YPE ; 
in  MONEY_TVPE) ; 


out  FOOD  TYPE) 


in  MONEYJTYPE; 
out  NONE V_T YPE) ; 
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Task  Body  HeD  is 

CfiSH_  DRAWER  :  MONEV_TVPE; 

NEU_ORDER  :  FOOD_JVPE; 

function  COOK  . 

function  COLC_COST  (ORDER  :  in  FOOD_TVPE  ) 
return  MGNEV_TVPE  is  . 

begin 

loop 

NEIMJRDER  :=  COOK; 
select 

accept  SERUE(QRDER  :  out  FOOD_TVPE)  do 
ORDER  :  =  NEU-ORDER: 

COST  :=  CALC_COST  (NEU_QRDER) ; 

GONZO.PAV  (COST 7  AMQUNT_PAID) ; 

CASH_DRAWER  :=  CASHJ)RAUER  +  fif10UNT_PAID ; 
end  SERUE; 

or 

delay  15.0  *  MINUTES; 
end  select; 

end  loop; 
end  McD; 


ss 
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T<jsk  Body  GONZO  is 

ACCOIJNTJJALANCE  :  MONEYJYPE; 

MY_URDER  :  FOOD_TYPE; 

function  G0_T0_UnRK  return  MONEY  TYPE  is _ 

hegi  n 

RCCOUNl_BftLONCE  :=  G0_I0_UflRK  *  ftCCOUNT_BnLflNCE ; 
loop 

McD.SCRUE  (MY_0RDER) ; 

accept  PRY  ( COST  :  in  MONrV_TVPE; 

PftYMENT  :  out  MOMEV_T VPE )  do 
nCCOUHT_BALfiKCE  OCCOUMi JlftL ONCE  - 

COST  ; 

PAYMENT  :=  COST; 
end  PRY; 
end  loop; 
end  GONZO; 
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T ask  type  to  is 
entry  SERUE . . . . 

end  HcD; 

Task  GONZO  is 

entry  PAV.... 
end  GOKiO; 

Task  hanager; 

Type  CASHIER  JOINTER  is  access  HcD; 

Type  REGISTER JVPE  is  array  (1..N0JEGISTERS) 

of  CASHIER  JOINTER; 

THE  REGISTERS  :  REGISTER  TYPE -(others  =>  new  HcD) 
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begin 

loop 

REORDER  :=  COOK: 
select 

accept  SERUE _ 

end  SERUE; 


delay  2.8  * 
exit; 

end  select; 
end  loop; 
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Task  Body  GON'G  1: 


begin 


-How,  GONZO  has  to  search  for  the  open 

—  registers,  and  select  the  one  with 

—  the  shortest  line 


THE_REGISTERS(MV_fiEGISTER) .SERUE; 


end  GONZO; 


Tnrl,  RnHn  MftKIAP.HD  ir 
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loop 

--The  HAHfiGER  will  look  at  the  queue  lengths  of 
--  the  open  registers,  and,  when  necessary 

—  will  open  registers  that  are  currently 

—  closed 


then 


THE_REGISTERS(CLOSED_REGISTER)  := 

end  if; 
end  loop; 

end  f'lfiNfIGER; 


new  I'lcD; 
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task  GR  is 

entry  SERUE  (ICE_CREAM 
end  BR: 


_  •  n  r  r»or  r»r  rnnr  » 

our  utic.Li(  i  i  yix  > ; 


task  SERUQMRT1C  is 

entry  TAKE  (fi_NUMBER  :  out  SERUOMflTIC_MUMBERS) ; 
end  SERUOMfITIC; 

task  type  CUSTOMER_TASK  is 

entry  REQUEST  (ORDER  :  out  ORDER_TVPE) ; 
end  CUSTOMERJTOSK; 

type  CUSTOMER  is  access  CUSTOMER_TftSK; 

CUSTOMERS  :  array  (SERUOMATICJTUMBERS)  of  CUSTOMER; 


task  body  BR 

NEXT_CUSTOMER  :  SERUOMAT I C_NUMBERS 
SERUOMAT I C_NUMBERS 'last ; 
CURRENTJ3RDER  :  QRDER_TVPE ; 

ICE_CREAM  :  DESSERT_TVPE ; 

function  MAKE  (ORDER  :  in  ORDER_TVPE)  return 

DESSERT  TVPE  is . 

begin 

loop 

begin 

NEXT_C US TOMER  :  =  (NEXT__CUSTOMER  +  1) 

nod  SERUOMAT I C_NUMBERS ' last ; 


CUSTOMERS(NEXT  CUSTOMER) .REQUEST 

(CURRENT_ORDER) ; 

ICE_CREflM  :=  MAKE(CURRENT_ORDER) ; 
accept  SERUE(ICE_CREAM  :  out  DESSERTJTVPE)  do 
ICE_CREAM  :=  BR . ICECREAM; 
end  SERUE; 
exception 

when  TASKING_ERROR  =>  null; 

— customer  not  here 

end ; 

end  loop; 
end ; 
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SERUaiifiT  ICJT'JMCERSTirst ; 

B  e  g  1  n 
loop 

accept  TrUCCCA__NIiMBER  :  out  SERUOMAT I C  NUMBERS)  do 
A  NUMBER  :=  HEXTNUHBER ; 
end  TAKE; 

NEXT  NUMBER  :=  (NEXT  NUMBER  +  1)  mod 

SERUOMAT I C_NUMBERS 1  last ; 

end  loop; 
end  SERUQHATIC; 


) 


task  body  cusinra  R..ir::;K  is 

MY_ ORDER  :  URDLR_i  YPE  :=  ...  ssr.c  uoIlio: 

MYJJESSEKT  :  DESSliR  i _ [  VPE ; 

beqin 

accept  REQUEST  (  ORDER  :  out  ORDER  TYPE)  do 
ORDER  :=  MVORDER ; 
end  REQUEST; 

BR .SERUE( MY  DESSERT) ; 

— eat  the  dessert,  or  do  whateuer 
end ; 
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task  SPOOLER  is 

entry  ^RI  HT_F  HE  (HOME  :  in  STRING; 

PRIORITV  :  in  NATURAL) 
entry  PRINTER_REflDY ; 
end  SPOOLER; 


procedure  PRINT  (  NOME  :  in  STRING; 

PRIORITY  :  in  NATURAL  := 
renames  SPOOLER .PRINT_F ILE ; 
end  PRINTER_PACKAGE ; 


Package  Body  PRINTER_PACKAGE  is 


task  PRINTER  is 

entry  PRINT_F ILE  (NAME 
end  PRINTER; 


in  STRING  ); 


end  PRINTER  PACKAGE; 


task  body  SPuliLtfi  is 

begin 

loop 

select 

accept  PRINTER  READV  do 

PRINTER .PRINT  FI LL  (  REKfiUE  (QUEUE)  ); 
—  Rerrjuo  would  dot  erndno  the  ne?:t  (oh  a 
send  it  to  the  actual  r>t' j r: t gi_ 
end  PR  I  HI ERRERDV ; 
else 

null ; 

end  select; 

select 

accept  PRINT_FILE  (  NAME  :  in  STRING; 

PRIORITV  :  NATURAL  )  do 

INSERT  (  NAME,  PRIORITV); 

--put  name  on  queue  or  queues  according 
to  priority 
end  PRINT  FILE ; 
else 

null; 

end  select; 
end  select; 
end  loop; 

end  SPOOLER; 
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begin 

loop 

SPOOLER .PRINT ER  REHDV; 
a c r : 9 p t  PRINT  FILE  (  NAME  :  i 

if  NAME' length  /-  0  then 
--print  tire  file 
else 

delay  10.0  *  seconds; 
end  if; 


in  S THINK  )  do 


end  PRINT_HLE; 
end  loop; 

end  PRINTER; 


witn  I'iilMi  li  .I'AUnGf; 


prise  (.’Jure  MA»H  is 


i  o  o  p 
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u  ^  c  ^  ^  3C  vc 


ral  file’ 


PRIMTER_PACKAGE_ PRINT  ( A_FILE ,  A_PRIORITY) 


end  loop; 
end  MAIN; 


x-.v.v.v.v; 
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APPLICATIONS  FOR  TASKS 

•  CONCURRENT  OPERATIONS 

•  ROUTING  MESSAGES 

•  SHARED  RESOURCE  MANAGEMENT 


INTERRUPT  HANDLING 


V 


1 

MATRIX  MULTIPLICATION 

1  1 
2  0 


type  ROW_OR_COL  is  array  (integer  range  <>)  of  integer; 
type  PTR  is  access  ROW_OR_COL; 

task  type  PARTIAL  is 

entry  SEND  (ROW.  COL  :  ROW_OR_COL); 
entry  RECEIVE  (RESULT  :  out  integer); 
end  PARTIAL; 

MAIN 


•  •  • 


begin 

--  send  row  and  col 
—  receive  partial  product 
end 


task  body  PARTIAL  is 

PRODUCT  :  integer  :=  Oy 
ROW_PTR  .  PTR, 

COI _ PTR  :  PTR; 

begin 

accept  SEND  (ROW, COL  :  ROW_OR_COL)  do 
ROWJPTR  :=  new  ROW_OR_COL*(ROW); 
COLJ^TR  ;=  new  ROW_OR_COL'(COL); 
end  SEND, 

lor  I  in  ROW_PTR  all' range 
loop 

PRODUCT  :=  PRODUCT  + 

ROW_PTR(I )  *  COLJPTRU ); 
end  loop; _ 

accept  RECEIVE  (RESULT  :  out  integer)  do 
RESULT  :=  PRODUCT; 
end  RECEIVE; 

end  PARTIAL, 


inn 


procedure  MAIN  is 


I 

w.  COLS  constant  :=  10; 

+'  ROWS  constant  -  10. 

_  type  MATRIX  is  array  ( 1  .  ROWS)  of 

*  *  R0W_0R_C0L  ( 1  ..  COLS). 


MAT  :  MATRIX; 

VECTOR  ;  R0W_0R_C0L  ( 1  ..  COLS); 
FINAL  :  R0W_0R_C0L  ( 1  ..  ROWS); 


£ 
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declare 

WORKER  ;  array  ( 1  ..  ROWS)  of  PARTIAL;  —  tasks 
begin 


for  I  in  1  ..  ROWS 
loop 

WORKER  ( I ). SEND  (ROW  =>  MAT(I), 

COL  =>  VECTOR); 

end  loop; 


for  I  in  1  ..  ROWS 
loop 

WORKER ( I )  .RECEIVE  (FINAL(D); 
end  loop. 


i 

\ 


end,  —  block 
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WRITE  SPECIFICATIONS  AND  BODIES  FOR  THE 
FOLLOWING  SYSTEM.  TASK  C  WILL  REPEATEDLY 
GET  AN  INTEGER  FROM  TASK  A  AND  SEND  IT  ON 
TO  TASK  B 


PRIORITY  MESSAGES 


type  PRIORITY  is  (LOW,  MEDIUM,  HIGH), 


task  SWITCH  is 
entry  SEND  (PRIORITY) 
(M  :  in  string); 
end  SWITCH; 

task  body  SWITCH  is 
begin 
loop 
select 


accept  SEND(HIGH)  do  . . .  end  SEND; 


SWITCH 


when  SEND(HIGH)'count  =  0  => 
accept  SEND(MEDIUM)  do  . .  end  SEND; 


when  SEND(HlGH)'count  =  0  and 
SEND(MEDIUM  )'count  =  0  => 
accept  SEND  (LOW) ...  end  SEND; 


end  select, 
end  loop; 
end  SWITCH; 


cvsc 
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A  Synchronizing  Buffer 


task  SYNCHRONIZER  is 
entry  PUT  (ITEM  m  SOME-TYPE ), 
entry  GET  (ITEM  out  SOME-TYPE); 
end  SYNCHRONIZER, 

task  body  SYNCHRONIZER  is 

SPOT  :  SOME-TYPE, 

begin 

loop 


accept  PUT  (ITEM  :  in  SOME-TYPE)  do 
SPOT  :=  ITEM, 
end  PUT; 


accept  GET  (ITEM  :  out  SOME-TYPE)  do 
ITEM  :=  SPOT, 
end  GET; 

end  loop, 

end  SYNCHRONIZER, 


OjNTRCLING  resources 


SEVERAL  CONCERNS  ARE  PRESENT  WHEN  DEALING 
WITH  P  ARALLELISM  THAT  ARE  NOT  PRESENT  WHEN 
DEALING  IN  A  PURELY  SEQUENTIAL  MODE 


IT  IS  IMPORTANT  TO  BE  ABLE  TO  ASSURE  THAT 
A  VALUE  IS  NOT  BEING  CHANGED  BY  ONE  USER  AT 
THE  PRECISE  MOMENT  THAT  IT  IS  BEING  REFERENCED 
BY  ANOTHER  USER 

Ada  PROVIDES  A  PRAGMA  'SHARED'  WHICH  CAN 
HELP 


INDEX  integer; 
pragma  SHARED* INDEX); 

ENFORCES  MUTUALLY  EXCLUSIVE  ACCESS 


AVAILABLE  FOR  SCALAR  AND  ACCESS  TYPES  ONLY 


PUMPING  TASK 


task  PUMP; 
task  SENDER  is 

entry  WRITE  (ITEM  :  out  SOME.TYPE); 
end  SENDER, 

task  RECEIVER  is 

entry  READ  (ITEM  :  in  SOME.TYPE); 
end  RECEIVER; 

task  body  PUMP  is 
THE  .ITEM  :  SOME-TYPE; 
begin 
loop 

SENDER  .READ(THE_ITEM ); 

RECE I VER .  WR I TE  (THE  J  TEM ) ; 
end  loop; 
end  PUMP; 

task  body  SENDER  is  separate; 
task  body  RECEIVER  is  separate; 


SENDER 


PUMP 


RECEIVER 


WRITE 
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HARDWARE  INTERRUPTS 


«  FOR  ARCHITECTURES  THAT  'JUMP'  TO  A  CERTAIN 
HARDWARE  ADDRESS  UPON  RECEIPT  OF  AN  INTERRUPT 

*  A  TASK  ENTRY  IS  ASSOCIATED  WITH  THE  ADDRESS 

•  PRIORITY  IS  HIGHER  THAN  ANY  USER-DEFINED 


task  INTERRUPT-HANDLER  is 
entry  DONE; 

for  DONE  use  at  1  6*40*; 
end  INTERRUPT-HANDLER; 


task  body  INTERRUPT-HANDLER  is 
begin 

accept  DONE  do 
end  DONE, 

end  INTERRUPT-HANDLER; 


■-.-V 

V  A  A  0-4 

EVENT  DRIVEN  SYSTEMS  W /BACKGROUND 


A  cyclic  executive  might  deal  with  sever  al  le*' 
processing 


Event  driven  processing 
interrupt  handling) 


(high  priority,  p 


—  Periodic  (cyclic)  processing 

—  Background  processing  (low  priority ) 
EXECUTIVE 


1 .  Mwyyt.wjr 


procedure  EXECUTIVE  is 

task  TASK_1  is 

pragma  PRIORITY  (10), 
entry  EVENT; 
end  TASK- 1  , 


task  TASK_2  is 
entry  EVENT ; 

for  EVENT  use  at  16*1  10'; 
end  TASK-2; 

task  BACKGROUND  is 
pragma  PRIORITY  (0); 
end  BACKGROUND; 

task  PERIODIC  is 

pragma  PRIORITY  (5), 
entry  TICK,  —  one  tick  per  cycle 

end  PERIODIC; 

task  body  PERIODIC  is 

begin 

loop 

accept  TICK; 

. .  --  process  a  frame 
end  loop; 
end  PERIODIC, 

—  bodies  (or  stubs)  of  other  tasks  go  here 


end  EXECUTIVE, 
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>  Overview 


Naming  an  exception 


Creating  an  exception  handier 


Raising  an  exception 


Handling  exceptions 


Turning  off  exception  checking 


Tasking  exceptions 


More  examples 


Overview 


What  is  an  exception 


Ada  exceptions 


Comparison 


-  the  American  way 


-  using  exceptions 


vvv 


VVrjSif  Jo  an  i-xcepnon 


A  run  time  error 


An  unusual  or  unexpected  condition 


A  condition  requiring  special  attention 


Other  than  normal  processing 


- :  f. .v ; . : : 
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An  exception  has  a  name 


-  may  be  predefined 

-  may  be  declared 

The  exception  is  raised 

-  may  be  raised  implicitly  by  run  time  system 

-  may  be  raised  explicitly  by  raise  statement 

The  exception  is  handled 

-  exception  handler  may  be  placed  in  any  frame 

-  exception  propagates  until  handler  is  found 

-  if  no  handier  anywhere,  process  aborts 


package  Stack_Package is 

type  Stack_Type  is  limited  private; 

procedure  Push  (Stack  :  in  out  StackJType; 

Element :  in  ElementJType; 
Overfiow_Flag  ;  out  boolean) 


end  Stack_Package; 


with  TextJO; 

with  Stack_Package;  use  Stack_Package; 
procedure  Flag_Waving  is 

•  • » 

Stack  :  Stack_Type; 

Element  :  Element_Type; 

Flag  :  boolean; 

begin 


Push  (Stack,  Element,  Flag); 
if  Flag  then 

TextJO. Put  ("Stack  overflow"); 


end  if; 


end  FiagJA/aving; 


type  Stack_Type  is  limited  private; 
Stack_Overflow, 

Stack_Underflow  ;  exception; 

procedure  Push  (Stack  ;  in  out  Stack_Type; 

Element ;  in  Element_Type); 

--  may  raise  Stack_Overf!ow 

•  ■  % 

end  Stack_Package; 


with  Text  JO; 

with  Stack_Package;  use  Stack_Package; 
procedure  More_Natural  is 

•  •  • 

Stack  :  Stack_Type; 

Element  ;  Element_Type; 

begin 


Push  (Stack.  Element); 
exception 

when  Stack_Overf!ow  => 

TextJO.Put  ("Stack  overflow"); 


end  More  Natural: 
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>  Naming  an  exception 


Creating  an  exception  handler 


Raising  an  exception 


Handling  exceptions 


Turning  off  exception  checking 


Tasking  exceptions 


More  examples 


nianrjjng  an  Excapiion 


Predefined  exceptions 


Declaring  exceptions 


I/O  exceptions 


In  package  STANDARD  (also  see  chap  11  of  LRM) 

CONSTRAINT_ERROR 

violation  of  range,  index,  or  discriminant  constraint... 

NUMERIC_ERROR 

execution  of  a  predefined  numeric  operation  cannot 
deliver  a  correct  result 

PROGRAM_ERROR 

attempt  to  access  a  program  unit  which  has  not  yet 
been  elaborated... 

STORAGEJERROR 

storage  allocation  is  exceeded... 

TASKING_ERROR 

exception  arising  during  intertask  communication 


Deeming  Exceptions 


exception_declaration  ::=  identifierjist  :  exception; 


Exception  may  be  declared  anywhere  an  object  declaration 
is  appropriate 


However,  exception  is  not  an  object 

-  may  not  be  used  as  subprogram  parameter,  record 

or  array  component 

-  has  same  scope  as  an  object,  but  its  effect  may 

extend  beyond  its  scope 


Example: 


procedure  Calculation  is 

Singular :  exception; 

Overflow,  Underflow  :  exception; 

begin 


end  Calculation; 


J 10  Exoppiiorr 


•  Exceptions  relating  to  file  processing 


•  In  predefined  library  unit  IO_EXCEPT!ONS 

(also  see  chap  14  of  LRM) 

•  TEXTJO,  DIRECT_IO,  and  SEQUENTIALJO  with  ii 


package  lO_EXCEPTIONS  is 


NAME_ERROR  :  exception; 
USE_ERROR  ;  exception; 

STATUS_ERROR  ;  exception; 
MODE_ERROR  :  exception; 
DEVICE_ERROR  ;  exception: 
END_ERROR  :  exception; 

DATA_ERROR  :  exception; 

L4YOUT_ERROR  :  exception; 


-attempt  to  use 
-invalid  operation 


-attempt  to  read 
-beyond  end  of  file 
-attempt  to  input 
-wrong  type 
-for  text  processing 


end  10  EXCEPTIONS: 


Overview 


Naming  an  exception 


>  Creating  an  exception  handler 


Raising  an  exception 


Handling  exceptions 


Turning  off  exception  checking 


Tasking  exceptions 


More  examples 


Or  9  at  in  g  an  Exception  Hand  I  nr 


Defining  an  exception  handler 


Restrictions 


Handler  example 
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Defining  cin  Exception  HcindJ^r 


•  Exception  condition  is  "caught"  and  "handled"  by  an  exception 
handler 


•  Exception  handler  may  appear  at  the  end  of  any  frame  (block, 
subprogram,  package  or  task  body) 


begin 

exception 

--  exception  handler(s) 
end; 


•  Form  similar  to  case  statement 


exception_handler  ::= 

when  exception_choice  (|  exception_choice}  => 
sequence_of_statements 

exception_choice  ::=  exception_name  |  others 


h  2  SIT  10' DOT)  3 


Exception  handlers  must  be  at  the  end  cf  a  frame 


Nothing  but  exception  handlers  may  lie  between  exception 
and  end  of  frame 


A  handler  may  name  any  visible  exception  declared  or 
predefined 


A  handler  includes  a  sequence  of  statements 
-  response  to  exception  condition 


A  handler  for  others  may  be  used 

-  must  be  the  last  handler  in  the  frame 

-  handles  all  exceptions  not  listed  in  previous 

handlers  of  the  frame 

(including  those  not  in  scope  of  visibility) 

-  can  be  the  only  handler  in  the  frame 


t 

I 

i  procedure  Whatever  is 


Problem_Condition  :  exception; 


begin 


exception 

when  Problem_Condition  => 

Fix _ It; 

when  CONSTRA!NT_ERROR  = 
Reportjt; 

when  others  => 

Punt; 


end  Whatever; 


Rarjjrjg  am  Ey.c^piiorj 


How  exceptions  are  raised 


Effects  of  raising  an  exception 


Raising  example 


Elf  3  riSU^^CJ 


How  n^csplicjns; 


Implicitly  by  run  time  system 

-  predefined  exceptions 


Explicitly  by  raise  statement 


raise_statement  ::=  raise  [exception_name]; 


-  the  name  of  the  exception  must  be  visible  at  the 
point  of  the  raise  statement 

*  a  raise  statement  without  an  exception  name  is 
allowed  only  within  an  exception  handler 
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Effscis  of  Raising  an  E:/ cap!  ion 


A 


•  Control  transfers  to  exception  handler  at  end  of  frame 
(if  one  exists) 


•  Exception  is  lowered 


'i 


■j 


Sequence  of  statements  in  exception  hander  is  executed 


i 


•  Control  passes  to  end  of  frame 

sq 

*i 

•  If  frame  does  not  contain  an  appropriate  exception  handler,  * 

the  exception  is  propagated 

? 

i 


* 


i 


W 
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procedure  Whatever  is 

Problem_Condition  :  exception; 
Real_Bad_Condition  :  exception; 


begin 


if  Problem_Arises  then 

raise  Problem_Condition; 

er.d  if; 


if  Serious_Problem  then 

raise  Real_Bad_Condition; 

end  if; 


exception 


when  Problem_Condition  => 
Fix_lt; 

when  CONSTRAlNT_ERROR  => 
Report_lt; 

when  others  => 

Punt; 


end  Whatever; 


V  V  V  fm  •rKr<‘  -  •  •/  '/T  , 
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Overview 


Naming  an  exception 


Creating  an  exception  handier 


Raising  an  exception 


Handling  exceptions 


Turning  off  exception  checking 


Tasking  exceptions 


More  examples 


Handling  hi/.ssp  nod's 


•  How  exception  handling  can  be  useful 


•  Which  exception  handler  is  used 


•  Sequence  of  statements  in  exception  handier 


•  Propagation 


•  Propagation  example 
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Normal  processing  could  continue  if 

-  cause  of  exception  condition  can  be  "repaired 

-  alternative  approach  can  be  used 

-  operation  can  be  retried 

Degraded  processing  could  be  better  than  termination 

-  for  example,  safety-critical  systems 

If  termination  is  necessary,  "clean-up"  can  be  done  first 


Which  E:xc9piit)ji  HantlJsr  Ic  Uccc 


If  exception  is  raised  during  normal  execution,  system  looks 
for  an  exception  handler  at  the  end  of  the  frame  in  which  the 
exception  occurred 

If  exception  is  raised  during  elaboration  of  the  declarative 
part  of  a  frame 

-  elaboration  is  abandoned  and  control  goes  to  the 

end  of  the  frame  with  the  exception  still  raised 

-  exception  part  of  the  frame  is  not  searched  for  an 

appropriate  handler 

-  effectively,  the  calling  unit  will  be  searched  for  an 

appropriate  handier 

-  if  elaboration  of  library  unit,  program  execution  is 

abandoned 

-  all  library  units  are  elaborated  with  the 
main  program 

If  exception  is  raised  in  exception  handler 

-  handler  may  contain  block(s)  with  handler(s) 

-  if  not  handled  locally  within  handler,  control  goes 

to  end  of  frame  with  exception  raised 


Handier  completes  the  execution  of  the  frame 


handler  for  a  function  should  usually  contain  a 
return  statement 


Statements  can  be  of  arbitrary  complexity 

-  can  use  most  any  language  construct  that  makes 

sense  in  that  context 

-  cannot  use  goto  statement  to  transfer  into  a 

handler 

-  if  handler  is  in  a  block  inside  a  loop,  could  use  exit 

statement 


Handler  at  end  of  package  body  applies  only  to  package 
initialization 


Propci'gaiiiorj 


•  Occurs  if  no  handler  exists  in  frame  where  exception  is  raised 

•  Also  occurs  if  raise  statement  is  used  in  handler 

•  Exception  is  propagated  dynamically 

-  propagates  from  subprogram  to  unit  calling  it 

(not  necessarily  unit  containing  its  declaration) 

-  this  can  result  in  propagation  outside  its  scope 

•  Propagation  continues  until 

-  an  appropriate  handler  is  found 

-  exception  propagates  to  main  program  (still  with 
no  handler)  and  program  execution  is  abandoned 
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Turning  On  ^onpiion  Ghnajnng 

Overhead  vs  efficiency 

Pragma  SUPPRESS 


Check  identifiers 


Ovarhaad  va  Ejfieterjey 

Exception  checking  imposes  run  time  overhead 

-  interactive  applications  will  never  notice 

-  real-time  applications  have  legitimate  concerns 

but  must  not  sacrifice  system  safety 

When  efficiency  counts 

-  first  and  foremost,  make  program  work 

-  be  sure  possible  problems  are  covered  by  exception 

handlers 

-  check  if  efficient  enough  -  stop  if  it  is 

-  if  not,  study  execution  profile 

--  eliminate  bottlenecks 
--  improve  algorithm 

-  avoid  "cute"  tricks 

-  check  if  efficient  enough  -  stop  if  it  is 

-  if  not,  trade-offs  may  be  necessary 

-  some  exception  checks  may  be  expendable  since 

debugging  is  done 

-  however,  every  suppressed  check  poses  new 

possibilities  for  problems 

-  must  re-examine  possible  problems 

-  must  re-examine  exception  handlers 

-  always  keep  in  mind 

-  problems  wiH  happen 

-  critical  applications  must  be  able  to 

deal  with  these  problems 
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•  Only  allowed  immediately  within  a  declarative  part  or 

immediately  within  a  package  specification 

pragma  SUPPRESS  (identifier  [,[  ON  =>]  name]); 

-  identifier  is  that  of  the  check  to  be  omitted 

(next  slide  lists  identifiers) 

-  name  is  that  of  an  object,  type,  or  unit  for  which 

the  check  is  to  be  suppressed 

-  if  no  name  is  given,  it  applies  to  the 
remaining  declarative  region 

•  An  implementation  is  free  to  ignore  the  suppress  directive 

for  any  check  which  may  be  impossible  or  too  costly  to 
suppress 


Example: 


pragma  SUPPRESS  (INDEX_CHECK,  ON  =>  Index); 


These  identifiers  are  explained  in  more  detail  in  chap  1 1  of 
the  LRM 


Check  identifiers  for  suppression  of  CONSTRAINT_ERROR 
checks 


ACCESS_CHECK 
DISCRIMINANT_CHECK 
INDEX_CHECK 
LENGTH_CHECK 
RANGE  CHECK 


Check  identifiers  for  suppression  of  NUMERIC_ERROR  checks 

DIV!SION_CHECK 

OVERFLOW_CHECK 


Check  identifier  for  suppression  of  PROGRAM_ERROR  checks 
ELABORATION  CHECK 


Check  identifier  for  suppression  of  STORAGE_ERROR  check 


STORAGE  CHECK 


Overview 


Naming  an  exception 


Creating  an  exception  handler 


Raising  an  exception 


Handling  exceptions 


Turning  off  exception  checking 


>  Tasking  exceptions 


More  examples 


Exception  handling  is  trickier  for  tasks 


Exceptions  during  task  rendezvous 


Tasking  example 
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I. 


'Ex caption  Handling  1 3  Trickier  for  Tarek' 


Rules  are  not  really  different,  just  more  involved 


-  local  exceptions  handled  the  same  within  frames 


If  exception  is  raised 


•  during  elaboration  of  task  declarations 

-  the  exception  TASKiNG_ERROR  will  be  raised  at  the 

point  of  task  activation 

-  the  task  will  be  marked  completed 

■  during  execution  of  task  body  (and  not  resolved  there) 

-  task  is  completed 

-  exception  is  not  propagated 

•  during  task  rendezvous 


-  this  is  the  really  tricky  part 


Except]  emu  During  Tun}".  Runduzvouu 


If  the  called  task  terminates  abnormally 

exception  TASKING__ERROR  is  raised  in  calling  task  at  the 
point  of  the  entry  call 


If  the  calling  task  terminates  abnormally 
no  exception  propagates  to  the  called  task 


i 


If  an  exception  is  raised  in  called  task  within  an  accept  (and 
not  handled  there  locally) 

the  same  exception  is  raised  in  the  calling  task  at  the  point 
of  the  entry  call 

(even  if  exception  is  later  handled  outside  of  the  accept  in 
the  called  task) 


If  an  entry  call  is  made  for  entry  of  a  task  that  becomes 
completed  before  accepting  the  entry 


exception  TASKING_ERROR  is  raised  in  calling  task  at  the 
point  of  the  entry  call 
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procedure  Critical__Code  is 


Failure  :  exception; 


.\  task  Monitor  is 

■■■  entry  Do_Something; 

end  Monitor; 

>:■  task  body  Monitor  is 

V, 

r1  begin 

accept  Do__Something  do 
raise  Failure; 

I 

end  Do_Something; 

exception  -  exception  handled  here 
j|  when  Failure  => 

Termination_Message; 

end  Monitor; 


7:  begin  -  Critical_Code 

Monitor. Do_Something; 

v  exception  -  same  exception  will  be  handled  here 

when  Failure  => 

Critical_Problem_Message; 

r 

U 

end  Critical_Code; 


Overview 


Naming  an  exception 
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Raising  an  exception 


Handling  exceptions 


horning  off  exception  checking 


I  asking  exceptions 
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with  Text_io;  use  Textjo; 

procedure  Get_lnput  (Number :  out  integer)  is 

type  lnput_Type  is  integer  range  0..100; 
package  Intjo  is  new  Integerjo  (InputJType); 
ln_Number :  lnput_Type; 


begin  --  Getjnput 


loop 


-  to  try  again  after  incorrect  input 


begin  -  inner  block  to  hold  exception  handler 

put  ("Enter  a  number  0  to  1 00"); 

Intjo. get  (InJMumber); 

Number  :=  ln_Number; 

exit;  --  to  exit  loop  after  correct  input 

exception 

when  DATAJERROR  |  CONSTRAINTJERROR  => 
put  ("Try  again,  fat  fingers!"); 

Skip_Line;  --  must  clear  buffer 

end;  -  inner  block 


end  loop; 


ena  Getjnput; 


JKS 


ws 


Propagating 
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declare 

package  Container  is 

procedure  Has_Handler; 
procedure  Raises_Exception; 
end  Container; 


procedure  Not_in_Package  is 
begin 

Container.  Raises_Exception ; 
exception 

when  others  =>  raise; 
end  Not_in_Package; 


package  body  Container  is 
Crazy  :  exception; 
procedure  Has_Hand!er  is 
begin 

Not_in_Package; 

exception 

when  Crazy  =>  Tell_Everyone; 
end  HasJHandler; 
procedure  Raises_Exception  is 
begin 

raise  Crazy; 

end  Raises_Exception; 
end  Container; 

Degin 


Container.Has  Handler; 


Kzyprng  a  task  Aliy 9 


task  Monitor  is 

entry  Do_Something; 
end  Monitor; 

task  body  Monitor  is 
begin 

loop  -  for  never-ending  repetition 

select 

accept  Do_Something  do 

begin  -  block  for  exception  handler 

raise  Failure; 
exception 

when  Failure  =>  Recover; 
end;  -  block 


end  Do_Something;  - 


■  exception  must  be 
--  lowered  before  exiting 


end  select; 

end  loop; 

exception 

when  others  => 

Termination_Message; 
end  Monitor; 
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